home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Commercial Game Templates• / Colony Edit / Colony Edit.rsrc / CODE_1.txt < prev    next >
Text File  |  1988-10-11  |  17KB  |  324 lines
  1. # near model CODE resource
  2. # jump table entries: 0-9 (10 of them)
  3. 00000000  0000 0072                ori.b      D0, 0x72 /* 'r' */
  4. export_0:
  5. 00000004  4278 0A4A                clr.w      [0x00000A4A /* FPState */]
  6. 00000008  9DCE                     sub.l      A6, A6
  7. 0000000A  4EBA 002C                jsr        [PC + 0x2C /* 00000038 */]
  8. 0000000E  4EBA 0220                jsr        [PC + 0x220 /* 00000230 */]
  9. 00000012  4267                     clr.w      -[A7]
  10. 00000014  4879 0000 FFFF           push.l     0xFFFF
  11. 0000001A  486F 0004                pea.l      [A7 + 0x4]
  12. 0000001E  4857                     pea.l      [A7]
  13. 00000020  3F3C 0001                move.w     -[A7], 0x1
  14. 00000024  223A FFDA                move.l     D1, [PC - 0x26 /* 00000000, value 0x72 'r', cstring "" */]
  15. 00000028  4EB5 1000                jsr        [A5 + D1.w]
  16. 0000002C  A9F4                     syscall    ExitToShell
  17. 0000002E  4EBA 02B2                jsr        [PC + 0x2B2 /* 000002E2 */]
  18. 00000032  4EBA 022C                jsr        [PC + 0x22C /* 00000260 */]
  19. 00000036  4E75                     rts
  20. fn00000038:
  21. 00000038  598F                     subq.l     A7, 4
  22. 0000003A  2F3C 5A45 524F           move.l     -[A7], 0x5A45524F /* 'ZERO' */
  23. 00000040  4267                     clr.w      -[A7]
  24. 00000042  A9A0                     syscall    GetResource
  25. 00000044  2457                     movea.l    A2, [A7]
  26. 00000046  598F                     subq.l     A7, 4
  27. 00000048  2F3C 4441 5441           move.l     -[A7], 0x44415441 /* 'DATA' */
  28. 0000004E  4267                     clr.w      -[A7]
  29. 00000050  A9A0                     syscall    GetResource
  30. 00000052  2057                     movea.l    A0, [A7]
  31. 00000054  2050                     movea.l    A0, [A0]
  32. 00000056  2278 0908                movea.l    A1, [0x00000908 /* CurStackBase */]
  33. 0000005A  2452                     movea.l    A2, [A2]
  34. 0000005C  600E                     bra        +0x10 /* 0000006C */
  35. label0000005E:
  36. 0000005E  32D8                     move.w     [A1]+, [A0]+
  37. 00000060  660A                     bne        +0xC /* 0000006C */
  38. 00000062  321A                     move.w     D1, [A2]+
  39. 00000064  6002                     bra        +0x4 /* 00000068 */
  40. label00000066:
  41. 00000066  4219                     clr.b      [A1]+
  42. label00000068:
  43. 00000068  51C9 FFFC                dbf        D1, -0x6 /* 00000066 */
  44. label0000006C:
  45. 0000006C  BBC9                     cmpa.l     A5, A1
  46. 0000006E  66EE                     bne        -0x10 /* 0000005E */
  47. 00000070  A9A3                     syscall    ReleaseResource
  48. 00000072  A9A3                     syscall    ReleaseResource
  49. 00000074  598F                     subq.l     A7, 4
  50. 00000076  2F3C 4452 454C           move.l     -[A7], 0x4452454C /* 'DREL' */
  51. 0000007C  4267                     clr.w      -[A7]
  52. 0000007E  A9A0                     syscall    GetResource
  53. 00000080  2057                     movea.l    A0, [A7]
  54. 00000082  A025                     syscall    GetHandleSize
  55. 00000084  2050                     movea.l    A0, [A0]
  56. 00000086  E240                     asr        D0.w, 1
  57. 00000088  240D                     move.l     D2, A5
  58. 0000008A  6006                     bra        +0x8 /* 00000092 */
  59. label0000008C:
  60. 0000008C  3218                     move.w     D1, [A0]+
  61. 0000008E  D5B5 1000                add.l      [A5 + D1.w], D2
  62. label00000092:
  63. 00000092  51C8 FFF8                dbf        D0, -0xA /* 0000008C */
  64. 00000096  A9A3                     syscall    ReleaseResource
  65. 00000098  4E75                     rts
  66. export_1:
  67. 0000009A  205F                     movea.l    A0, [A7]+
  68. 0000009C  3218                     move.w     D1, [A0]+
  69. label0000009E:
  70. 0000009E  3418                     move.w     D2, [A0]+
  71. 000000A0  B058                     cmp.w      D0, [A0]+
  72. 000000A2  57C9 FFFA                dbeq       D1, -0x8 /* 0000009E */
  73. 000000A6  4A42                     tst.w      D2
  74. label000000A8:
  75. 000000A8  67FE                     beq        -0x0 /* 000000A8 */
  76. 000000AA  4EF0 20FC                jmp        [A0 + D2.w - 0x4]
  77. export_2:
  78. 000000AE  205F                     movea.l    A0, [A7]+
  79. 000000B0  3218                     move.w     D1, [A0]+
  80. label000000B2:
  81. 000000B2  3418                     move.w     D2, [A0]+
  82. 000000B4  B098                     cmp.l      D0, [A0]+
  83. 000000B6  57C9 FFFA                dbeq       D1, -0x8 /* 000000B2 */
  84. 000000BA  4A42                     tst.w      D2
  85. label000000BC:
  86. 000000BC  67FE                     beq        -0x0 /* 000000BC */
  87. 000000BE  4EF0 20FA                jmp        [A0 + D2.w - 0x6]
  88. export_3:
  89. 000000C2  205F                     movea.l    A0, [A7]+
  90. 000000C4  3218                     move.w     D1, [A0]+
  91. 000000C6  3418                     move.w     D2, [A0]+
  92. 000000C8  B042                     cmp.w      D0, D2
  93. 000000CA  6E0A                     bgt        +0xC /* 000000D6 */
  94. 000000CC  9041                     sub.w      D0, D1
  95. 000000CE  6D06                     blt        +0x8 /* 000000D6 */
  96. 000000D0  D040                     add.w      D0, D0
  97. 000000D2  41F0 0002                lea.l      A0, [A0 + D0.w + 0x2]
  98. label000000D6:
  99. 000000D6  3010                     move.w     D0, [A0]
  100. label000000D8:
  101. 000000D8  67FE                     beq        -0x0 /* 000000D8 */
  102. 000000DA  4EF0 0000                jmp        [A0 + D0.w]
  103. export_4:
  104. 000000DE  202F 0004                move.l     D0, [A7 + 0x4]
  105. 000000E2  2F41 0004                move.l     [A7 + 0x4], D1
  106. 000000E6  222F 0008                move.l     D1, [A7 + 0x8]
  107. 000000EA  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  108. 000000EE  48E7 3C00                movem.l    -[A7], D2,D3,D4,D5
  109. 000000F2  2400                     move.l     D2, D0
  110. 000000F4  2601                     move.l     D3, D1
  111. 000000F6  4842                     swap.w     D2
  112. 000000F8  C4C3                     mulu.w     D2, D3
  113. 000000FA  2800                     move.l     D4, D0
  114. 000000FC  2A01                     move.l     D5, D1
  115. 000000FE  4845                     swap.w     D5
  116. 00000100  C8C5                     mulu.w     D4, D5
  117. 00000102  D444                     add.w      D2, D4
  118. 00000104  4842                     swap.w     D2
  119. 00000106  4242                     clr.w      D2
  120. 00000108  C0C1                     mulu.w     D0, D1
  121. 0000010A  D082                     add.l      D0, D2
  122. 0000010C  4CDF 003C                movem.l    D2,D3,D4,D5, [A7]+
  123. 00000110  221F                     move.l     D1, [A7]+
  124. 00000112  4E75                     rts
  125. export_5:
  126. 00000114  202F 0004                move.l     D0, [A7 + 0x4]
  127. 00000118  2F41 0004                move.l     [A7 + 0x4], D1
  128. 0000011C  222F 0008                move.l     D1, [A7 + 0x8]
  129. 00000120  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  130. 00000124  48E7 3100                movem.l    -[A7], D2,D3,D7
  131. 00000128  4EBA 009C                jsr        [PC + 0x9C /* 000001C6 */]
  132. 0000012C  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  133. 00000130  221F                     move.l     D1, [A7]+
  134. 00000132  4E75                     rts
  135. export_6:
  136. 00000134  202F 0004                move.l     D0, [A7 + 0x4]
  137. 00000138  2F41 0004                move.l     [A7 + 0x4], D1
  138. 0000013C  222F 0008                move.l     D1, [A7 + 0x8]
  139. 00000140  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  140. 00000144  48E7 3100                movem.l    -[A7], D2,D3,D7
  141. 00000148  4EBA 007C                jsr        [PC + 0x7C /* 000001C6 */]
  142. 0000014C  2001                     move.l     D0, D1
  143. 0000014E  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  144. 00000152  221F                     move.l     D1, [A7]+
  145. 00000154  4E75                     rts
  146. export_7:
  147. 00000156  202F 0004                move.l     D0, [A7 + 0x4]
  148. 0000015A  2F41 0004                move.l     [A7 + 0x4], D1
  149. 0000015E  222F 0008                move.l     D1, [A7 + 0x8]
  150. 00000162  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  151. 00000166  48E7 3100                movem.l    -[A7], D2,D3,D7
  152. 0000016A  4EBA 002C                jsr        [PC + 0x2C /* 00000198 */]
  153. 0000016E  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  154. 00000172  221F                     move.l     D1, [A7]+
  155. 00000174  4E75                     rts
  156. export_8:
  157. 00000176  202F 0004                move.l     D0, [A7 + 0x4]
  158. 0000017A  2F41 0004                move.l     [A7 + 0x4], D1
  159. 0000017E  222F 0008                move.l     D1, [A7 + 0x8]
  160. 00000182  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  161. 00000186  48E7 3100                movem.l    -[A7], D2,D3,D7
  162. 0000018A  4EBA 000C                jsr        [PC + 0xC /* 00000198 */]
  163. 0000018E  2001                     move.l     D0, D1
  164. 00000190  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  165. 00000194  221F                     move.l     D1, [A7]+
  166. 00000196  4E75                     rts
  167. fn00000198:
  168. 00000198  4A80                     tst.l      D0
  169. 0000019A  6A1C                     bpl        +0x1E /* 000001B8 */
  170. 0000019C  4A81                     tst.l      D1
  171. 0000019E  6A0C                     bpl        +0xE /* 000001AC */
  172. 000001A0  4480                     neg.l      D0
  173. 000001A2  4481                     neg.l      D1
  174. 000001A4  4EBA 0020                jsr        [PC + 0x20 /* 000001C6 */]
  175. 000001A8  4481                     neg.l      D1
  176. 000001AA  4E75                     rts
  177. label000001AC:
  178. 000001AC  4480                     neg.l      D0
  179. 000001AE  4EBA 0016                jsr        [PC + 0x16 /* 000001C6 */]
  180. 000001B2  4480                     neg.l      D0
  181. 000001B4  4481                     neg.l      D1
  182. 000001B6  4E75                     rts
  183. label000001B8:
  184. 000001B8  4A81                     tst.l      D1
  185. 000001BA  6A0A                     bpl        +0xC /* 000001C6 */
  186. 000001BC  4481                     neg.l      D1
  187. 000001BE  4EBA 0006                jsr        [PC + 0x6 /* 000001C6 */]
  188. 000001C2  4480                     neg.l      D0
  189. 000001C4  4E75                     rts
  190. fn000001C6:
  191. 000001C6  2E3C 0000 FFFF           move.l     D7, 0xFFFF
  192. 000001CC  B280                     cmp.l      D1, D0
  193. 000001CE  6306                     bls        +0x8 /* 000001D6 */
  194. 000001D0  2200                     move.l     D1, D0
  195. 000001D2  7000                     moveq.l    D0, 0x00
  196. 000001D4  4E75                     rts
  197. label000001D6:
  198. 000001D6  B087                     cmp.l      D0, D7
  199. 000001D8  620C                     bhi        +0xE /* 000001E6 */
  200. 000001DA  80C1                     divu.w     D0, D1
  201. 000001DC  4840                     swap.w     D0
  202. 000001DE  3200                     move.w     D1, D0
  203. 000001E0  4240                     clr.w      D0
  204. 000001E2  4840                     swap.w     D0
  205. 000001E4  4E75                     rts
  206. label000001E6:
  207. 000001E6  B287                     cmp.l      D1, D7
  208. 000001E8  621A                     bhi        +0x1C /* 00000204 */
  209. 000001EA  2E00                     move.l     D7, D0
  210. 000001EC  4240                     clr.w      D0
  211. 000001EE  4840                     swap.w     D0
  212. 000001F0  80C1                     divu.w     D0, D1
  213. 000001F2  4840                     swap.w     D0
  214. 000001F4  4847                     swap.w     D7
  215. 000001F6  3E00                     move.w     D7, D0
  216. 000001F8  4847                     swap.w     D7
  217. 000001FA  8EC1                     divu.w     D7, D1
  218. 000001FC  3007                     move.w     D0, D7
  219. 000001FE  4847                     swap.w     D7
  220. 00000200  3207                     move.w     D1, D7
  221. 00000202  4E75                     rts
  222. label00000204:
  223. 00000204  2400                     move.l     D2, D0
  224. 00000206  2601                     move.l     D3, D1
  225. label00000208:
  226. 00000208  E288                     lsr        D0, 1
  227. 0000020A  E289                     lsr        D1, 1
  228. 0000020C  B287                     cmp.l      D1, D7
  229. 0000020E  62F8                     bhi        -0x6 /* 00000208 */
  230. 00000210  80C1                     divu.w     D0, D1
  231. 00000212  C087                     and.l      D0, D7
  232. label00000214:
  233. 00000214  3203                     move.w     D1, D3
  234. 00000216  C2C0                     mulu.w     D1, D0
  235. 00000218  2E03                     move.l     D7, D3
  236. 0000021A  4847                     swap.w     D7
  237. 0000021C  CEC0                     mulu.w     D7, D0
  238. 0000021E  4847                     swap.w     D7
  239. 00000220  D287                     add.l      D1, D7
  240. 00000222  6508                     bcs        +0xA /* 0000022C */
  241. 00000224  9282                     sub.l      D1, D2
  242. 00000226  6204                     bhi        +0x6 /* 0000022C */
  243. 00000228  4481                     neg.l      D1
  244. 0000022A  4E75                     rts
  245. label0000022C:
  246. 0000022C  5340                     subq.w     D0, 1
  247. 0000022E  60E4                     bra        -0x1A /* 00000214 */
  248. fn00000230:
  249. 00000230  323C A9F0                move.w     D1, 0xA9F0
  250. 00000234  43FA FE00                lea.l      A1, [PC - 0x200 /* 00000036, value 0x4E75598F */]
  251. 00000238  4EBA 0068                jsr        [PC + 0x68 /* 000002A2 */]
  252. 0000023C  323C A9F2                move.w     D1, 0xA9F2
  253. 00000240  43FA FDF0                lea.l      A1, [PC - 0x210 /* 00000032, value 0x4EBA022C */]
  254. 00000244  4EBA 005C                jsr        [PC + 0x5C /* 000002A2 */]
  255. 00000248  323C A9F3                move.w     D1, 0xA9F3
  256. 0000024C  43FA FDE4                lea.l      A1, [PC - 0x21C /* 00000032, value 0x4EBA022C */]
  257. 00000250  4EBA 0050                jsr        [PC + 0x50 /* 000002A2 */]
  258. 00000254  323C A9F4                move.w     D1, 0xA9F4
  259. 00000258  43FA FDD4                lea.l      A1, [PC - 0x22C /* 0000002E, value 0x4EBA02B2 */]
  260. 0000025C  4EFA 0044                jmp        [PC + 0x44 /* 000002A2 */]
  261. fn00000260:
  262. 00000260  2F08                     move.l     -[A7], A0
  263. 00000262  206F 0008                movea.l    A0, [A7 + 0x8]
  264. 00000266  2F68 0002 0008           move.l     [A7 + 0x8], [A0 + 0x2]
  265. 0000026C  2078 02A6                movea.l    A0, [0x000002A6 /* SysZone */]
  266. 00000270  700C                     moveq.l    D0, 0x0C
  267. 00000272  D090                     add.l      D0, [A0]
  268. 00000274  B0B8 02AA                cmp.l      D0, [0x000002AA /* ApplZone */]
  269. 00000278  6624                     bne        +0x26 /* 0000029E */
  270. 0000027A  4EBA 0066                jsr        [PC + 0x66 /* 000002E2 */]
  271. 0000027E  323C A9F0                move.w     D1, 0xA9F0
  272. 00000282  4EBA 003A                jsr        [PC + 0x3A /* 000002BE */]
  273. 00000286  323C A9F2                move.w     D1, 0xA9F2
  274. 0000028A  4EBA 0032                jsr        [PC + 0x32 /* 000002BE */]
  275. 0000028E  323C A9F3                move.w     D1, 0xA9F3
  276. 00000292  4EBA 002A                jsr        [PC + 0x2A /* 000002BE */]
  277. 00000296  323C A9F4                move.w     D1, 0xA9F4
  278. 0000029A  4EBA 0022                jsr        [PC + 0x22 /* 000002BE */]
  279. label0000029E:
  280. 0000029E  205F                     movea.l    A0, [A7]+
  281. 000002A0  4E75                     rts
  282. fn000002A2:
  283. 000002A2  3001                     move.w     D0, D1
  284. 000002A4  A146                     syscall    GetTrapAddress, flags=1
  285. 000002A6  2448                     movea.l    A2, A0
  286. 000002A8  700C                     moveq.l    D0, 0x0C
  287. 000002AA  A51E                     syscall    NewPtrSys, flags=5
  288. 000002AC  3001                     move.w     D0, D1
  289. 000002AE  A047                     syscall    SetTrapAddress
  290. 000002B0  30FC 4EB9                move.w     [A0]+, 0x4EB9
  291. 000002B4  20C9                     move.l     [A0]+, A1
  292. 000002B6  30FC 4EF9                move.w     [A0]+, 0x4EF9
  293. 000002BA  20CA                     move.l     [A0]+, A2
  294. 000002BC  4E75                     rts
  295. fn000002BE:
  296. 000002BE  3001                     move.w     D0, D1
  297. 000002C0  A146                     syscall    GetTrapAddress, flags=1
  298. 000002C2  2268 0008                movea.l    A1, [A0 + 0x8]
  299. 000002C6  A01F                     syscall    DisposPtr/DisposePtr
  300. 000002C8  3001                     move.w     D0, D1
  301. 000002CA  2049                     movea.l    A0, A1
  302. 000002CC  A047                     syscall    SetTrapAddress
  303. 000002CE  4E75                     rts
  304. 000002D0  0000 0000                ori.b      D0, 0x0
  305. 000002D4  0000 0000                ori.b      D0, 0x0
  306. export_9:
  307. 000002D8  41FA FFF6                lea.l      A0, [PC - 0xA /* 000002D0, value 0x0, cstring "" */]
  308. 000002DC  20AF 0004                move.l     [A0], [A7 + 0x4]
  309. 000002E0  4E75                     rts
  310. fn000002E2:
  311. 000002E2  41FA FFEC                lea.l      A0, [PC - 0x14 /* 000002D0, value 0x0, cstring "" */]
  312. 000002E6  2010                     move.l     D0, [A0]
  313. 000002E8  6706                     beq        +0x8 /* 000002F0 */
  314. 000002EA  4290                     clr.l      [A0]
  315. 000002EC  2040                     movea.l    A0, D0
  316. 000002EE  4E90                     jsr        [A0]
  317. label000002F0:
  318. 000002F0  203A FFE2                move.l     D0, [PC - 0x1E /* 000002D4, value 0x0, cstring "" */]
  319. 000002F4  6704                     beq        +0x6 /* 000002FA */
  320. 000002F6  2040                     movea.l    A0, D0
  321. 000002F8  4290                     clr.l      [A0]
  322. label000002FA:
  323. 000002FA  4E75                     rts
  324.